home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_11_19xx_Uptime_staff_Side_A.d64 / planet raiders (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  45 lines
  1. 1 rem    planet boot-by jc hilty-uptime-10/87
  2. 2 s=54272:poke53281,0:poke53280,0:print"[147][156]....[193] short while ago...."
  3. 3 print:print"....[201]n a galaxy very, very near...."
  4. 4 poke147,0:sys57812"display.ml",8,1:sys62631
  5. 5 poke147,0:sys57812"title planet",8,1:sys62631:sys49154:gosub18
  6. 6 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
  7. 7 poke53270,peek(53270)and239:poke53281,0
  8. 9 print"[147][144]load"chr$(34)"raiders.exe"chr$(34)",8"
  9. 10 print"run":print"[156]....[205]ay skill and luck be with you....[144]"
  10. 11 poke198,3:poke631,19:poke632,13:poke 633,13
  11. 12 end
  12. 18 forx=0to24:pokes+x,0:next
  13. 19 pokes+3,8:pokes+2,0
  14. 20 pokes+5,9:pokes+6,125
  15. 22 pokes+12,144:pokes+13,243
  16. 30 pokes+24,15
  17. 40 readhf,lf,dr:ifhf=0thenforq=0to2000:next:restore:goto40
  18. 60 pokes+1,hf:pokes,lf:pokes+8,hf:pokes+7,lf:pokes+4,65:pokes+11,33
  19. 62 fort=0todr:next
  20. 70 pokes+4,64:pokes+11,32:geta$:ifa$="[133]"thenreturn
  21. 71 goto40
  22. 110 data 4,180,125,4,180,125,4,180,125,6,71,500,9,104,500
  23. 120 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  24. 130 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  25. 140 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
  26. 150 data 6,71,500,9,104,500
  27. 160 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  28. 170 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  29. 180 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
  30. 190 data 5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125
  31. 200 data 6,71,125,7,12,125,7,233,125,7,12,125,5,71,125,5,237,250,4,180,125
  32. 210 data 4,180,125,5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125
  33. 220 data 9,104,125,7,12,125,7,12,500,4,180,125,4,180,125
  34. 230 data 5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125,6,71,125
  35. 240 data 7,12,125,7,233,125,7,12,125,5,71,125,5,237,125,9,104,125,9,104,125
  36. 250 data 12,143,125,11,48,125,9,143,125,9,104,125,8,97,125,7,180,125,7,12,125
  37. 260 data 6,71,125,9,104,750,4,180,125,4,180,125,4,180,125,6,71,500,9,104,500
  38. 270 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  39. 280 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  40. 290 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
  41. 300 data 6,71,500,9,104,500,8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  42. 310 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
  43. 320 data 8,97,125,7,233,125,8,97,125,7,12,500,9,104,250,12,143,2000
  44. 330 data 12,143,125,12,143,125,12,143,125,12,143,500,0,0,0
  45.